home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Utilities / Disk / CMInstall / CLIMasterII / modules / format.g < prev    next >
Encoding:
Gui4CLI script  |  1998-06-24  |  1.6 KB  |  85 lines
  1. G4C
  2.  
  3. winbig -1 -1 200 78 ""
  4. winsmall 0 -1 200 78
  5. wintype 11110000
  6. winout nil:
  7. varpath "climaster/*/routine.g"
  8.  
  9. xonload
  10. set editor sys:dtp/bed/bed
  11. failat 5
  12. guiopen format.g
  13.  
  14. xonopen
  15. lvuse format.g 1
  16. gosub routine.g drives
  17. update format.g 1 0
  18. update format.g 4 1
  19. update format.g 5 0
  20. update format.g 6 0
  21. update format.g 7 0
  22. setwintitle format.g "Disk Format                  "
  23. setgad format.g 8 off
  24. update format.g 2 $source
  25.  
  26. xonclose
  27. lvuse climaster $cm_srce
  28. failat 10
  29. guiquit format.g
  30.  
  31. xonrmb
  32. guiclose format.g
  33.  
  34. xonfail
  35. ezreq "Error During Format." Okay ""
  36. guiclose format.g
  37.  
  38. box 80 26 120 52 out button
  39. box 0 13 80 13 out button
  40. ctext 20 14 Drive: topaz.font 8 2 0 000
  41.  
  42. xlistview 0 26 80 56 "" source "" 0 txt
  43. gadid 1
  44. gadfont topaz.font 8 000
  45. lvuse climaster $cm_srce
  46. update format.g 2 $source
  47.  
  48. text 80 13 50 13 "" 4 box
  49. gadid 2
  50. gadtxt center
  51.  
  52. xtextin 0 0 200 13 "" nwname "" 30
  53. gadid 3
  54. if $nwname = ""
  55.     ezreq "You MUST supply a name." Okay ""
  56.     stop
  57. endif
  58. setgad format.g 8 on
  59.  
  60. xcheckbox 90 30 26 11 "FFS" dop_fsys "ffs" "" on
  61. gadid 4
  62. gadtitle right
  63.  
  64. xcheckbox 90 41 26 11 "DirCache" dop_dcach "dircache" "" off
  65. gadid 5
  66. gadtitle right
  67.  
  68. xcheckbox 90 52 26 11 "Trashcan" dop_tcan "" "noicons" on
  69. gadid 6
  70. gadtitle right
  71.  
  72. xcheckbox 90 63 26 11 "Quick" dop_quck "quick" "" off
  73. gadid 7
  74. gadtitle right
  75.  
  76. xbutton 130 13 70 13 Start
  77. gadid 8
  78. setwintitle format.g "Formatting...                 "
  79. launch 1 'sys:system/format drive $source name "$nwname" $dop_tcan $dop_fsys $dop_dcach $dop_quck'
  80. xonreturn 1
  81. nwname = ""
  82. update format.g 3 $nwname
  83. setgad format.g 8 off
  84. setwintitle format.g "Disk Format                   "
  85.